COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	begin "BUG"
C00003 ENDMK
C⊗;
begin "BUG"
external integer !errp! ;
INTERNAL SIMPLE INTEGER PROCEDURE ERROR (INTEGER LOC);
	BEGIN "ERROR"
	INTEGER CHAR;
	!errp!←location(char);
	IF LOC OR NOT CHAR THEN RETURN(CHAR)
	ELSE	BEGIN
		!ERRP! ← LOCATION(ERROR) ;
		RETURN(0) ;
		END ;
	END "ERROR";
END "BUG"